home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / floati1a / frmtoolb.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-26  |  8.4 KB  |  242 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form Form1 
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7620
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   8.25
  11.       Charset         =   0
  12.       Weight          =   400
  13.       Underline       =   -1  'True
  14.       Italic          =   -1  'True
  15.       Strikethrough   =   -1  'True
  16.    EndProperty
  17.    ScaleHeight     =   4245
  18.    ScaleWidth      =   7620
  19.    StartUpPosition =   1  'CenterOwner
  20.    WindowState     =   2  'Maximized
  21.    Begin ComctlLib.Toolbar Toolbar1 
  22.       Height          =   390
  23.       Left            =   200
  24.       TabIndex        =   0
  25.       Top             =   0
  26.       Width           =   7620
  27.       _ExtentX        =   13441
  28.       _ExtentY        =   688
  29.       ButtonWidth     =   635
  30.       ButtonHeight    =   582
  31.       AllowCustomize  =   0   'False
  32.       ImageList       =   "ImageList1"
  33.       _Version        =   327682
  34.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  35.          NumButtons      =   11
  36.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  37.             Key             =   "a"
  38.             Object.Tag             =   ""
  39.             ImageIndex      =   1
  40.          EndProperty
  41.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  42.             Key             =   "b"
  43.             Object.Tag             =   ""
  44.             ImageIndex      =   2
  45.          EndProperty
  46.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  47.             Key             =   "c"
  48.             Object.Tag             =   ""
  49.             ImageIndex      =   3
  50.          EndProperty
  51.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  52.             Key             =   "sep"
  53.             Object.Tag             =   ""
  54.             Style           =   4
  55.             MixedState      =   -1  'True
  56.          EndProperty
  57.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  58.             Key             =   "d"
  59.             Object.Tag             =   ""
  60.             ImageIndex      =   4
  61.          EndProperty
  62.          BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  63.             Key             =   "e"
  64.             Object.Tag             =   ""
  65.             ImageIndex      =   5
  66.          EndProperty
  67.          BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  68.             Key             =   "f"
  69.             Object.Tag             =   ""
  70.             ImageIndex      =   6
  71.          EndProperty
  72.          BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  73.             Key             =   "sep2"
  74.             Object.Tag             =   ""
  75.             Style           =   4
  76.             MixedState      =   -1  'True
  77.          EndProperty
  78.          BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  79.             Key             =   "g"
  80.             Object.Tag             =   ""
  81.             ImageIndex      =   7
  82.          EndProperty
  83.          BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  84.             Key             =   "sep3"
  85.             Object.Tag             =   ""
  86.             Style           =   4
  87.             MixedState      =   -1  'True
  88.          EndProperty
  89.          BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  90.             Key             =   "h"
  91.             Object.Tag             =   ""
  92.             ImageIndex      =   1
  93.          EndProperty
  94.       EndProperty
  95.    End
  96.    Begin VB.TextBox Text1 
  97.       BeginProperty Font 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   8.25
  100.          Charset         =   0
  101.          Weight          =   400
  102.          Underline       =   -1  'True
  103.          Italic          =   0   'False
  104.          Strikethrough   =   -1  'True
  105.       EndProperty
  106.       Height          =   3735
  107.       Left            =   0
  108.       MultiLine       =   -1  'True
  109.       ScrollBars      =   3  'Both
  110.       TabIndex        =   1
  111.       Top             =   480
  112.       Width           =   7575
  113.    End
  114.    Begin VB.Image Image1 
  115.       Height          =   360
  116.       Left            =   20
  117.       Picture         =   "frmToolbarTest.frx":0000
  118.       Top             =   0
  119.       Width           =   195
  120.    End
  121.    Begin VB.Label Label1 
  122.       Height          =   375
  123.       Left            =   200
  124.       TabIndex        =   2
  125.       Top             =   0
  126.       Width           =   7695
  127.    End
  128.    Begin ComctlLib.ImageList ImageList1 
  129.       Left            =   2400
  130.       Top             =   200
  131.       _ExtentX        =   1005
  132.       _ExtentY        =   1005
  133.       BackColor       =   -2147483643
  134.       ImageWidth      =   16
  135.       ImageHeight     =   16
  136.       MaskColor       =   12632256
  137.       _Version        =   327682
  138.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  139.          NumListImages   =   8
  140.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  141.             Picture         =   "frmToolbarTest.frx":008E
  142.             Key             =   ""
  143.          EndProperty
  144.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  145.             Picture         =   "frmToolbarTest.frx":03E0
  146.             Key             =   ""
  147.          EndProperty
  148.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  149.             Picture         =   "frmToolbarTest.frx":0732
  150.             Key             =   ""
  151.          EndProperty
  152.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  153.             Picture         =   "frmToolbarTest.frx":0A84
  154.             Key             =   ""
  155.          EndProperty
  156.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  157.             Picture         =   "frmToolbarTest.frx":0DD6
  158.             Key             =   ""
  159.          EndProperty
  160.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  161.             Picture         =   "frmToolbarTest.frx":1128
  162.             Key             =   ""
  163.          EndProperty
  164.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  165.             Picture         =   "frmToolbarTest.frx":147A
  166.             Key             =   ""
  167.          EndProperty
  168.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  169.             Picture         =   "frmToolbarTest.frx":17CC
  170.             Key             =   ""
  171.          EndProperty
  172.       EndProperty
  173.    End
  174.    Begin VB.Menu mnufile 
  175.       Caption         =   "File"
  176.       Begin VB.Menu mnufileopen 
  177.          Caption         =   "Open"
  178.       End
  179.    End
  180. Attribute VB_Name = "Form1"
  181. Attribute VB_GlobalNameSpace = False
  182. Attribute VB_Creatable = False
  183. Attribute VB_PredeclaredId = True
  184. Attribute VB_Exposed = False
  185. Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  186. ' When user drags and drops toolbar we load frmToolbar
  187. Image1.Visible = False
  188. Toolbar1.Visible = False
  189. frmToolbar.Visible = True
  190. Text1.Move 0, 0, ScaleWidth, ScaleHeight
  191. turk = 1
  192. Form_Resize
  193. End Sub
  194. Private Sub Form_GotFocus()
  195. Form_Resize
  196. End Sub
  197. Private Sub Form_Load()
  198. Form_Resize
  199. End Sub
  200. Private Sub Form_Resize()
  201. If Form1.WindowState = 1 Then
  202.    Exit Sub
  203. End If
  204. If turk = 1 Then
  205. Text1.Move 0, 0, ScaleWidth, ScaleHeight
  206. Toolbar1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  207. Label1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  208. Exit Sub
  209. End If
  210. If turk = 0 Then
  211. Text1.Move 0, 400, ScaleWidth, ScaleHeight - 400
  212. Toolbar1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  213. Label1.Move 200, 0, ScaleWidth, ScaleHeight - 250
  214. Exit Sub
  215. End If
  216. End Sub
  217. Private Sub Form_Unload(Cancel As Integer)
  218. Unload frmToolbar
  219. End Sub
  220. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  221. Toolbar1.Drag
  222. End Sub
  223. Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
  224. ' When user drags and drops toolbar we load frmToolbar
  225. frmToolbar.Visible = False
  226. Toolbar1.Visible = True
  227. Image1.Visible = True
  228. turk = 0
  229. Form_Resize
  230. End Sub
  231. Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
  232. ' When user drags and drops toolbar we load frmToolbar
  233. Image1.Visible = False
  234. Toolbar1.Visible = False
  235. frmToolbar.Visible = True
  236. turk = 1
  237. Form_Resize
  238. End Sub
  239. Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  240. Toolbar1.Drag   ' Enables user to drag toolbar1
  241. End Sub
  242.